<%@ Language=VBScript %>
<%
If session("agentusername")="" Then
ef=True
ec="授权非法，有可能是超时造成的。"
ElseIf Request.QueryString ("id")="" Then
ef=True
ec="请输入产品ID！"
ElseIf not IsNumeric(Request.QueryString ("id")) Then
ef=True
ec="ID应该是数字！"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
Set dsph = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and id='"&Request.QueryString ("id")&"'"
if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
dsph.Open Sql,conn,1,1
if dsph.Eof then
ef=True
ec="不存在的虚拟主机！"
end if
end If
If not ef then
Set dsserver = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'"
dsserver.Open Sql,conn,1,1
if dsserver.Eof then
ef=True
ec="服务器不存在！"
Else
if dsserver("ostype")="linux" And Request.QueryString ("go")="e" then
'Response.Redirect dsserver("site")
%>
<%response.end
End if
end if
end if
If not ef Then
session("HOSTOSTYPE")=dsserver("ostype")
session("HOSTAUID")=dsph("id")'2007-3-19
session("HOSTAUBAIID")=dsph("id")'2007-3-19
if Request.QueryString ("go")="b" then
session("HOSTAUBAIID")=dsph("id")
Response.Redirect "/hostadm/beian.asp?id="&dsph("id")
end if
end if
If not ef Then
if dsph("Hosttype")="子目录绑定" Then
subid=dsph("allowsubbyid")
Issubtype=true
Set dsph = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and id='"&subid&"'"
dsph.Open Sql,conn,1,1
if dsph.Eof then
ef=True
ec="主站不存在！"
end If
end if
end if
If not ef then
if dsph("status")="暂停" then
' ef=True
' ec="必须是处于正常状态的主机才能管理！"
end if
end if
if not ef then
session("HOSTAUID")=dsph("id")
session("HOSTAUBAIID")=dsph("id")
if Request.QueryString ("go")="a" And Issubtype then Response.Redirect "/hostadm/selfhostmodify.asp?to=selfhostaddsub.asp&id="&dsph("id")
if Request.QueryString ("go")="a" then Response.Redirect "/hostadm/selfhostmodify.asp"
if Request.QueryString ("go")="b" then Response.Redirect "/hostadm/beian.asp"
if Request.QueryString ("go")="c" then Response.Redirect "/hostadm/selfhostmodifyrepay.asp?id="&dsph("id")
if Request.QueryString ("go")="d" then Response.Redirect "/hostadm/selfhostmodifyup.asp?id="&dsph("id")
end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>